perm filename TEST.LSP[E82,JMC] blob sn#679490 filedate 1982-09-26 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 this file may be erased
C00004 ENDMK
CāŠ—;
; this file may be erased

(setq b 1)
`(a ,b b)
(macro increment (x)
       (list 'setq (cadr x) (list '1+ (cadr x))))
(defmacro increment (symbol) `(setq ,symbol (1+ ,symbol)))

(increment foo)